00010	BEGIN "INFIX"
00020	REQUIRE "BLOCKS.HDR[4,ALS]" SOURCE_FILE;
00030	INTEGER I,J,K;
00035	STRING READ1;
00040	
00050	HEADIN;
00060	FOR I←0 STEP 1 UNTIL 23 DO OUTSTR(CVXSTR(INNAM[I])&TB);
00070	OUTSTR(CRLF);
00080	FOR I←0 STEP 1 UNTIL 23 DO  INNAM[I]←CVASC(CVXSTR(INNAM[I]));
00090	FOR I←0 STEP 1 UNTIL 23 DO
00095	  BEGIN  OUTSTR(CVSTR(INNAM[I])); OUTSTR(TB); END;
00100	INCHWL;
00110	END;
00200	
00210	SETBREAK(17,'40,NULL,"OSN");
00220	SETBREAK(18,0,NULL,"OSN");
00230	CHAN1←1;  CHAN2←2; CHAN3←3; CHAN4←4;
00240	HEADIN; ⊂ Bring in header information;
00250	OPEN(CHAN1,"DSK",'10,10,0,0,0,EOF);LOOKUP(CHAN1,"TABHED.DAT[4,ALS]",J);
00260	ARRYIN(CHAN1,INNAM[0],24); CLOSE(CHAN1);
00270	FOR I←0 STEP 1 UNTIL 23 DO OUTSTR(CVXSTR(INNAM[I])&TB); OUTSTR(CRLF);
00280	FOR I←0 STEP 1 UNTIL 23 DO BEGIN READ1←CVXSTR(INNAM[I]);
00290	  READ2←SCAN(READ1,17,K); INNAM[I]←CVASC(READ2); END;
00300	FOR I←0 STEP 1 UNTIL 23 DO BEGIN
00310	  OUTSTR(CVOS(INNAM[I])&TB&CVSTR(INNAM[I]));OUTSTR(TB); END;INCHWL;